Dim sdb
'======================================================
  Set OBJ = CreateObject("ActivCard.Authentication")

  msgbox OBJ.AddToken( sdb, 0 )

  Set OBJ = Nothing